home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume11 / starchart / part03 < prev    next >
Encoding:
Text File  |  1990-03-15  |  48.6 KB  |  1,894 lines
  1. Newsgroups: comp.sources.misc
  2. subject: v11i031: starchart 3.2 Part 03/32
  3. from: ccount@ATHENA.MIT.EDU
  4. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  5.  
  6. Posting-number: Volume 11, Issue 31
  7. Submitted-by: ccount@ATHENA.MIT.EDU
  8. Archive-name: starchart/part03
  9.  
  10. #! /bin/sh
  11. # This is a shell archive.  Remove anything before this line, then unpack
  12. # it by saving it into a file and typing "sh file".  To overwrite existing
  13. # files, type "sh file -c".  You can also feed this as standard input via
  14. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  15. # will see the following message at the end:
  16. #        "End of archive 3 (of 32)."
  17. # Contents:  data/con.locs data/index.indx data/reg_to_indx.perl
  18. #   doc/starpost.1 observe/objcalc.c observe/suncalc.c
  19. #   samples/mess.obj samples/test.star1-5 starchart/README.st
  20. #   starchart/icon.h starchart/makefile.st starchart/starXawDlog.h
  21. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  22. if test -f 'data/con.locs' -a "${1}" != "-c" ; then 
  23.   echo shar: Will not clobber existing file \"'data/con.locs'\"
  24. else
  25. echo shar: Extracting \"'data/con.locs'\" \(3438 characters\)
  26. sed "s/^X//" >'data/con.locs' <<'END_OF_FILE'
  27. X/ con.locs    StarChart 'macro library' for canned views
  28. X/        Bob Tidd  inp@amber.berkeley.edu  6/87
  29. X/
  30. X/ This is a first cut and not a "cannonical" list of celestial locations.
  31. X/ Users should feel free to revise and extend (and post!) new versions.
  32. X/
  33. X/  column 4 coding (to distinguish "virgo area" from "virgo constellation"
  34. X/  c (or blank)=constellation
  35. X/  a=area
  36. X/  f=messier finder chart
  37. X/  t=time of year (evening sky)
  38. X/
  39. X/ columns 1-4 exclusively belong to the mnemonic, column five is ignored.
  40. X/ The remaining four parameters are three floats plus a string (terminated
  41. X/ by the end of line). The first two floats (Ra and Decl) appear in the
  42. X/ "hh" or "hh.mm" format used on the command line. Scale is a "traditional"
  43. X/ floating point value.
  44. X/
  45. X/...+....1....+....2....+....3....+
  46. X/
  47. Xand  1     35   40   Andromeda
  48. Xant  10.15 -34  25   Antlia
  49. Xaql  19.4  2.3  30   Aquila
  50. Xaqu  22.07 -14  45   Aquarius
  51. Xari  2.35  19   30   Aries
  52. Xaur  5.30  40   30   Auriga ?
  53. Xboo  14.4  27   35   Bootes
  54. Xcae  4.5  -38.2 25   Caelum
  55. Xcam  4.06  63   25   Camelopardalis
  56. Xcan  8.40  19   30   Cancer
  57. Xcap  21    -20  20   Capricorn
  58. Xcas  1.0   60   15   Cassiopeia
  59. Xcen  13.3  -45  45   Centaurus
  60. Xcep  22    70   30   Cepheus
  61. Xcet  1.36 -8.15 50   Cetus
  62. Xcma  6.45  -20  25   Canis Major
  63. Xcmi  7.4   5.2  20   Canis Minor
  64. Xcol  5.5  -35.3 25   Columba
  65. Xcom  13    25   20   Coma Bereneces
  66. Xcor  15.5  30   15   Corona Borealis
  67. Xcpr  21.1 -20.4 30   Capricornus
  68. Xcra  18.5 -40   15   Corona Australis
  69. Xcrt  11.3  -17  22   Crater
  70. Xcrv  12.2 -18.1 15   Corvus
  71. Xcvn  13    40   20   Canes Venatici
  72. Xcyg  20.30 40   30   Cygnus
  73. Xdel  20.4  11.3 18   Delphinus
  74. Xequ  21.12 7.3  11   Equuleus
  75. Xeri  3.3   -30  70   Eridanus
  76. Xfor  2.4   -32  30   Fornax
  77. Xgem  7.05  23   30   Gemini
  78. Xgru  22.3  -47  30   Grus
  79. Xher  17.1  35   45   Hercules
  80. Xhor  3.2   -51  40   Horologium
  81. Xhyd  10    -10  50   Hydra
  82. Xlac  22.20 45   20   LAC
  83. Xleo  11    20   40   Leo
  84. Xlep  5.34  -19  20   Lepus
  85. Xlib  15.1  -18  25   Libra
  86. Xlmi  10.24 32.3 20   Leo Minor
  87. Xlup  15.2  -41  25   Lupus
  88. Xlyn  8     49   50   Lynx
  89. Xlyr  18.5  35   20   Lyra
  90. Xmic  21   -36.5 20   Microscopium
  91. Xmon  7.1   0    35   Monoceros
  92. Xnor  16.1  -52  20   Norma
  93. Xoph  17.2  -10  50   Ophiuchus
  94. Xori  5.4   4.2  35   Orion
  95. Xpeg  23    30   20   Pegasus
  96. Xper  3.0   44   40   Perseus
  97. Xphe  0.4   -47  40   Phoenix
  98. Xpis  0.35  13   45   Pisces
  99. Xpsa  22.2  -30  25   Piscis Austrinus
  100. Xpup  7.4   -36  40   Puppus
  101. Xpyx  8.55 -28.3 20   Pyxis
  102. Xsco  17    -30  35   Scorpio
  103. Xsct  18.39 -10  15   Scutum
  104. Xscu  0     -35  30   Sculptor
  105. Xser  18.1  -3.2 30   Serpens Cauda
  106. Xsex  10.2  -2.3 25   Sextans
  107. Xsge  19.5  18.3 15   Sagitta
  108. Xsgr  19    -30  45   Sagittarius
  109. Xsrt  15.4   9   30   Serpens Caput
  110. Xtel  19.1  -51  25   Telescopium
  111. Xtrp  5.36  -5   12   Trapezium (Orion)
  112. Xtau  4.27  17.3 40   Taurus
  113. Xtri  2.1   35   20   Triangulum
  114. Xuma  12.30 55   50   Ursa Major
  115. Xumi  16    75   30   Ursa Minor
  116. Xvel  9.3   -48  40   Vela
  117. Xvir  13.2  0    55   Virgo  +-
  118. Xvul  19.30 25   15   Vulpecula
  119. X/
  120. X101f 14.05 54   3 M101 Area
  121. Xandf 0.45  41   3 Andromeda, M31
  122. Xcoma 12.25 16   6 Coma Bereneces M100
  123. Xdbcf 2.25  57   2.3 Double Cluster
  124. Xhyaf 4.30  17   5 Hyades Cluster
  125. Xm47f 7.35  15.4 3 M47 Finder
  126. Xm81f 9.55  69   3 M81, M82
  127. Xorif 5.35  -5   6 Orion Nebula
  128. Xperf 3.25  49   4 Perseus Detail
  129. Xplef 3.50  24   3 The Pleiades
  130. Xpraf 8.40  20   2 Praesepe, M44
  131. Xsgra 18.10 -18  10 Sagitarius Cluster
  132. Xumaf 11.25 58   12 Ursa Major Bowl
  133. Xvira 12.25 14   8 Virgo Cluster
  134. X/
  135. Xmayt 13.0  30   110 May Sky
  136. END_OF_FILE
  137. if test 3438 -ne `wc -c <'data/con.locs'`; then
  138.     echo shar: \"'data/con.locs'\" unpacked with wrong size!
  139. fi
  140. # end of 'data/con.locs'
  141. fi
  142. if test -f 'data/index.indx' -a "${1}" != "-c" ; then 
  143.   echo shar: Will not clobber existing file \"'data/index.indx'\"
  144. else
  145. echo shar: Extracting \"'data/index.indx'\" \(3504 characters\)
  146. sed "s/^X//" >'data/index.indx' <<'END_OF_FILE'
  147. X02.0    -30.0    00.0    -90.0  /usr/local/lib/ast/SAO/SAO00-90 lineread
  148. X04.0    -30.0    02.0    -90.0  /usr/local/lib/ast/SAO/SAO02-90 lineread
  149. X06.0    -30.0    04.0    -90.0  /usr/local/lib/ast/SAO/SAO04-90 lineread
  150. X08.0    -30.0    06.0    -90.0  /usr/local/lib/ast/SAO/SAO06-90 lineread
  151. X10.0    -30.0    08.0    -90.0  /usr/local/lib/ast/SAO/SAO08-90 lineread
  152. X12.0    -30.0    10.0    -90.0  /usr/local/lib/ast/SAO/SAO10-90 lineread
  153. X14.0    -30.0    12.0    -90.0  /usr/local/lib/ast/SAO/SAO12-90 lineread
  154. X16.0    -30.0    14.0    -90.0  /usr/local/lib/ast/SAO/SAO14-90 lineread
  155. X18.0    -30.0    16.0    -90.0  /usr/local/lib/ast/SAO/SAO16-90 lineread
  156. X20.0    -30.0    18.0    -90.0  /usr/local/lib/ast/SAO/SAO18-90 lineread
  157. X22.0    -30.0    20.0    -90.0  /usr/local/lib/ast/SAO/SAO20-90 lineread
  158. X24.0    -30.0    22.0    -90.0  /usr/local/lib/ast/SAO/SAO22-90 lineread
  159. X02.0     00.0    00.0    -30.0  /usr/local/lib/ast/SAO/SAO00-30 lineread
  160. X04.0     00.0    02.0    -30.0  /usr/local/lib/ast/SAO/SAO02-30 lineread
  161. X06.0     00.0    04.0    -30.0  /usr/local/lib/ast/SAO/SAO04-30 lineread
  162. X08.0     00.0    06.0    -30.0  /usr/local/lib/ast/SAO/SAO06-30 lineread
  163. X10.0     00.0    08.0    -30.0  /usr/local/lib/ast/SAO/SAO08-30 lineread
  164. X12.0     00.0    10.0    -30.0  /usr/local/lib/ast/SAO/SAO10-30 lineread
  165. X14.0     00.0    12.0    -30.0  /usr/local/lib/ast/SAO/SAO12-30 lineread
  166. X16.0     00.0    14.0    -30.0  /usr/local/lib/ast/SAO/SAO14-30 lineread
  167. X18.0     00.0    16.0    -30.0  /usr/local/lib/ast/SAO/SAO16-30 lineread
  168. X20.0     00.0    18.0    -30.0  /usr/local/lib/ast/SAO/SAO18-30 lineread
  169. X22.0     00.0    20.0    -30.0  /usr/local/lib/ast/SAO/SAO20-30 lineread
  170. X24.0     00.0    22.0    -30.0  /usr/local/lib/ast/SAO/SAO22-30 lineread
  171. X02.0     30.0    00.0     00.0  /usr/local/lib/ast/SAO/SAO00+00 lineread
  172. X04.0     30.0    02.0     00.0  /usr/local/lib/ast/SAO/SAO02+00 lineread
  173. X06.0     30.0    04.0     00.0  /usr/local/lib/ast/SAO/SAO04+00 lineread
  174. X08.0     30.0    06.0     00.0  /usr/local/lib/ast/SAO/SAO06+00 lineread
  175. X10.0     30.0    08.0     00.0  /usr/local/lib/ast/SAO/SAO08+00 lineread
  176. X12.0     30.0    10.0     00.0  /usr/local/lib/ast/SAO/SAO10+00 lineread
  177. X14.0     30.0    12.0     00.0  /usr/local/lib/ast/SAO/SAO12+00 lineread
  178. X16.0     30.0    14.0     00.0  /usr/local/lib/ast/SAO/SAO14+00 lineread
  179. X18.0     30.0    16.0     00.0  /usr/local/lib/ast/SAO/SAO16+00 lineread
  180. X20.0     30.0    18.0     00.0  /usr/local/lib/ast/SAO/SAO18+00 lineread
  181. X22.0     30.0    20.0     00.0  /usr/local/lib/ast/SAO/SAO20+00 lineread
  182. X24.0     30.0    22.0     00.0  /usr/local/lib/ast/SAO/SAO22+00 lineread
  183. X02.0     90.0    00.0     30.0  /usr/local/lib/ast/SAO/SAO00+30 lineread
  184. X04.0     90.0    02.0     30.0  /usr/local/lib/ast/SAO/SAO02+30 lineread
  185. X06.0     90.0    04.0     30.0  /usr/local/lib/ast/SAO/SAO04+30 lineread
  186. X08.0     90.0    06.0     30.0  /usr/local/lib/ast/SAO/SAO06+30 lineread
  187. X10.0     90.0    08.0     30.0  /usr/local/lib/ast/SAO/SAO08+30 lineread
  188. X12.0     90.0    10.0     30.0  /usr/local/lib/ast/SAO/SAO10+30 lineread
  189. X14.0     90.0    12.0     30.0  /usr/local/lib/ast/SAO/SAO12+30 lineread
  190. X16.0     90.0    14.0     30.0  /usr/local/lib/ast/SAO/SAO14+30 lineread
  191. X18.0     90.0    16.0     30.0  /usr/local/lib/ast/SAO/SAO16+30 lineread
  192. X20.0     90.0    18.0     30.0  /usr/local/lib/ast/SAO/SAO18+30 lineread
  193. X22.0     90.0    20.0     30.0  /usr/local/lib/ast/SAO/SAO20+30 lineread
  194. X24.0     90.0    22.0     30.0  /usr/local/lib/ast/SAO/SAO22+30 lineread
  195. END_OF_FILE
  196. if test 3504 -ne `wc -c <'data/index.indx'`; then
  197.     echo shar: \"'data/index.indx'\" unpacked with wrong size!
  198. fi
  199. # end of 'data/index.indx'
  200. fi
  201. if test -f 'data/reg_to_indx.perl' -a "${1}" != "-c" ; then 
  202.   echo shar: Will not clobber existing file \"'data/reg_to_indx.perl'\"
  203. else
  204. echo shar: Extracting \"'data/reg_to_indx.perl'\" \(2946 characters\)
  205. sed "s/^X//" >'data/reg_to_indx.perl' <<'END_OF_FILE'
  206. X#
  207. X# First extract the data from regions.tbl file using emacs
  208. X# to split the data beginning at 14401 into 9537 lines
  209. X# of 48 characters each.  an easier method is:
  210. X#    dd if=regions.tbl of=reg.txt cbs=48 conv=unblock ibs=2880 skip=5
  211. X# FOLLOWED by head -9537 reg.txt > reg.txt.final
  212. X#
  213. X# The resulting file was processed using this
  214. X# perl script to produce the index.indx file for the GSC CD-ROM.
  215. X# You will need to set the parent directory of the CD-ROM below.
  216. X# If you have two CD-ROM readers for the two CD-ROMs, see
  217. X# "TWO READERS" below.
  218. X#
  219. X# perl is a replacement for shell awk and sed scripts, developed by
  220. X# Larry Wall at jpl-devvax.jpl.nasa.gov, where the latest version is
  221. X# avaliable via anonymous ftp.
  222. X
  223. X
  224. X$, = ":";
  225. X$\ = "\n";
  226. Xwhile (<>) {
  227. X    $reg_no = substr($_,0,5);
  228. X    $ra_h_low = substr($_,7,2);
  229. X    $ra_m_low = substr($_,10,2);
  230. X    $ra_s_low = substr($_,13,5);
  231. X    $ra_h_hi = substr($_,19,2);
  232. X    $ra_m_hi = substr($_,22,2);
  233. X    $ra_s_hi = substr($_,25,5);
  234. X    $decsi_lo = substr($_,31,1);
  235. X    $dec_d_lo = substr($_,32,2);
  236. X    $dec_m_lo = substr($_,35,4);
  237. X    $decsi_hi = substr($_,40,1);
  238. X    $dec_d_hi = substr($_,41,2);
  239. X    $dec_m_hi = substr($_,44,4);
  240. X
  241. X
  242. X    $dec_hi = $dec_d_hi + $dec_m_hi/60.0;
  243. X    if ($decsi_hi eq "-") {$dec_hi *= -1;}
  244. X
  245. X    $dec_lo = $dec_d_lo + $dec_m_lo/60.0;
  246. X    if ($decsi_lo eq "-") {$dec_lo *= -1;}
  247. X
  248. X    $ra_hi = $ra_h_hi + $ra_m_hi/60.0 + $ra_s_hi / 3600.0;
  249. X    $ra_lo = $ra_h_low + $ra_m_low/60.0 + $ra_s_low / 3600.0;
  250. X
  251. X    if ($ra_hi == 0.0) {$ra_hi = 24.0;}
  252. X
  253. X    $dec_abs = $dec_lo;
  254. X    if ($dec_abs < 0.0) {$dec_abs = -$dec_abs;}
  255. X# Note: name of cdrom here should not be changed, change it below.
  256. X    $subdir = "/cdrom/gsc/";
  257. X    if ($decsi_hi eq "-") {
  258. X        $subdir .= "s";
  259. X    } else {
  260. X        $subdir .= "n";
  261. X    }
  262. X    
  263. X    if ($dec_abs < 7.5) {
  264. X        $subdir .= "0000";
  265. X    } elsif ($dec_abs < 15.00) {
  266. X        $subdir .= "0730";
  267. X    } elsif ($dec_abs < 22.50) {
  268. X        $subdir .= "1500";
  269. X    } elsif ($dec_abs < 30.00) {
  270. X        $subdir .= "2230";
  271. X    } elsif ($dec_abs < 37.50) {
  272. X        $subdir .= "3000";
  273. X    } elsif ($dec_abs < 45.00) {
  274. X        $subdir .= "3730";
  275. X    } elsif ($dec_abs < 52.50) {
  276. X        $subdir .= "4500";
  277. X    } elsif ($dec_abs < 60.00) {
  278. X        $subdir .= "5230";
  279. X    } elsif ($dec_abs < 67.50) {
  280. X        $subdir .= "6000";
  281. X    } elsif ($dec_abs < 75.00) {
  282. X        $subdir .= "6730";
  283. X    } elsif ($dec_abs < 82.50) {
  284. X        $subdir .= "7500";
  285. X    } else {
  286. X        $subdir .= "8230";
  287. X    }
  288. X
  289. X    $subdir .= "/";
  290. X
  291. X## TWO READERS
  292. X## At this point subdir should be modified if a second cdrom reader is
  293. X## to be used for the southern disk
  294. X#    if (($subdir =~ m"/s[0-9][0-9][0-9][0-9]/")
  295. X#        && ($subdir !~ m"/s0000/")) {
  296. X##            On second disk
  297. X#            $subdir =~ s"cdrom"cdrom2";
  298. X#    }
  299. X
  300. X# here, you can rename /cdrom/ to be the value appropriate for your
  301. X# site.
  302. X# e.g.:
  303. X#    $subdir =~ s"cdrom/"my/owncdrom/";
  304. X#    $subdir =~ s"cdrom2/"my/owncdrom2/";
  305. X
  306. X    if ($dec_hi < $dec_lo) {
  307. X        $dec_up = $dec_lo;
  308. X        $dec_dn = $dec_hi;
  309. X    } else {
  310. X        $dec_up = $dec_hi;
  311. X        $dec_dn = $dec_lo;
  312. X    }
  313. X
  314. X    printf "%9.6f %7.3f %9.6f %7.3f %s%04d.gsc gsc\n",
  315. X        $ra_hi, $dec_up,
  316. X        $ra_lo, $dec_dn,
  317. X        $subdir,
  318. X        $reg_no;
  319. X}
  320. X
  321. END_OF_FILE
  322. if test 2946 -ne `wc -c <'data/reg_to_indx.perl'`; then
  323.     echo shar: \"'data/reg_to_indx.perl'\" unpacked with wrong size!
  324. fi
  325. # end of 'data/reg_to_indx.perl'
  326. fi
  327. if test -f 'doc/starpost.1' -a "${1}" != "-c" ; then 
  328.   echo shar: Will not clobber existing file \"'doc/starpost.1'\"
  329. else
  330. echo shar: Extracting \"'doc/starpost.1'\" \(3253 characters\)
  331. sed "s/^X//" >'doc/starpost.1' <<'END_OF_FILE'
  332. X.TH STARCHART LOCAL "15 July 1989"
  333. X.ad b
  334. X.SH NAME
  335. Xstarpost \- print astronomical star charts.
  336. X.SH SYNOPSIS
  337. XArguments as in other starchart programs, with the special argument -a:
  338. X.br
  339. X.B \-a
  340. X"\fBm\fR
  341. X[
  342. X.I mag-1
  343. X:
  344. X.I mag0
  345. X:
  346. X.I mag1
  347. X:
  348. X.I mag2
  349. X:
  350. X.I ...
  351. X]
  352. X|
  353. X.B \-a
  354. X\fBs\fR
  355. X[
  356. X.I D0
  357. X[
  358. X.I v0
  359. X[
  360. X.I k
  361. X]]]
  362. X|
  363. X\fBn\fR
  364. X[
  365. X.I rad1
  366. X:
  367. X.I rad2
  368. X:
  369. X.I rad3
  370. X:
  371. X.I rad4
  372. X:
  373. X.I ...
  374. X]
  375. X|
  376. X.BI f " file"
  377. X|
  378. X.B c
  379. X|
  380. X\fBl\fR"
  381. X.br
  382. X
  383. X.SH DESCRIPTION
  384. XSee starchart(1) for details on the starchart programs in general.
  385. X.PP
  386. XThe additional argument controls include \fBm\fR for magnitude:
  387. Xwith \fBm\fR 0.1 magnitude quanta are used (the default is 1.0
  388. Xmagnitude, e.g. a 4.6 magnitude star is represented by the same symbol
  389. Xas a star of magnitude 5.4).  The rest of the argument string is
  390. Xoptional, and taken to be a list of floating point numbers separated
  391. Xby `:' or ` '.  These are taken to be the radii of the symbols for
  392. Xstars of magnitude -1, 0, 1, 2, 3 etc.  The sizes of symbols for stars
  393. Xwith magnitudes between these magnitudes are determined by linear
  394. Xinterpolation.  Note that the last value given is the value assigned
  395. Xto all magnitudes fainter than that magnitude. Current default sizes
  396. Xare "9 8 7 6 5 4 3.25 2.5 2 1.5 1 0.5".
  397. X.PP
  398. XThe \fBs\fR argument provides an alternative way of specifying
  399. Xmagnitude symbol sizes, using a formula proposed by Andrew Young in
  400. XSky and Telescope, March 1990, p. 311, D = D0 * 10^(k*(v0 - v)).
  401. XHe proposes a k of between 0.07 and 0.16, with 0.11 as probably the
  402. Xbest.  If \fBs\fR uses 0.1 magnitude quanta as does \fBm\fR.  The
  403. Xdefault values for D0, v0, and k are 0.5 (points), the limiting
  404. Xmagnitude of the main map, and 0.11, respectively.  These may be
  405. Xaltered with the optional arguments to \fBs\fR.
  406. X.PP
  407. XThe \fBn\fR argument is for ``notebook'' mode.  The chart is shifted
  408. Xto the right on the page, and the ``thumbnail'' map is replaced with
  409. Xprompts and space for recording observing conditions.  The rest of the
  410. Xargument string is taken to be a list of floating point numbers
  411. Xseparated by `:' or ` '.  These are taken to be the radii in degrees
  412. Xof fields of view of the instrument or finder.  Circles with these
  413. Xradii are drawn, centered on the center of the chart.
  414. X.PP
  415. X.BI f " file"
  416. Xmay be used to specify an output file, otherwise the postscript
  417. Xproduced is sent to the standard output.
  418. X.PP
  419. X.B c
  420. Xmay be used to produce color postscript output.
  421. X.PP
  422. X.B l
  423. Xmay be used to specify landscape mode (as opposed to the default
  424. Xportrait orientation).  Landscape mode can only used with a
  425. Xfullpage map.
  426. X.PP
  427. X.sp
  428. XSince the resolution of PostScript is much higher than other common
  429. Xdevices, ``mapwin'' files must be edited when transferred between
  430. Xstarpost and other drivers.  The controls for window width, height,
  431. Xx_offset and y_offset must be changed.
  432. X.PP
  433. XThe "\fB-a\fR p" or "\fB-a\fR l" option used with "starX11" or
  434. X"starXaw" can be used in producing a ``mapwin'' file which can be
  435. Xconverted for use in "starpost" through an "awk" script named
  436. X"postconv.awk", provided with the source to this program.
  437. X
  438. X.SH EXAMPLE
  439. Xstarpost -a "n 6:1.5:.5" -a "m9 8 7 6 5 4 3.5 2.5 2 1.5 1 0.5" -a "f orion.PS" -c ori -g 5 
  440. X.SH BUGS
  441. X.SH AUTHORS/EDITORS
  442. XCraig Counterman
  443. X.br
  444. XAlan Paeth, University of Waterloo <AWPaeth@watCGL>
  445. X.br
  446. XThanks also to
  447. X.br
  448. XPoul-Henning Kamp
  449. X
  450. END_OF_FILE
  451. if test 3253 -ne `wc -c <'doc/starpost.1'`; then
  452.     echo shar: \"'doc/starpost.1'\" unpacked with wrong size!
  453. fi
  454. # end of 'doc/starpost.1'
  455. fi
  456. if test -f 'observe/objcalc.c' -a "${1}" != "-c" ; then 
  457.   echo shar: Will not clobber existing file \"'observe/objcalc.c'\"
  458. else
  459. echo shar: Extracting \"'observe/objcalc.c'\" \(3256 characters\)
  460. sed "s/^X//" >'observe/objcalc.c' <<'END_OF_FILE'
  461. X/*
  462. X * objcalc.c
  463. X * read objects data file, calculate position in equinox 2000.0
  464. X *
  465. X * Copyright (c) 1990 by Craig Counterman. All rights reserved.
  466. X *
  467. X * This software may be redistributed freely, not sold.
  468. X * This copyright notice and disclaimer of warranty must remain
  469. X *    unchanged. 
  470. X *
  471. X * No representation is made about the suitability of this
  472. X * software for any purpose.  It is provided "as is" without express or
  473. X * implied warranty, to the extent permitted by applicable law.
  474. X *
  475. X */
  476. X
  477. X#ifndef  lint
  478. Xstatic char rcsid[] =
  479. X  "$Header: objcalc.c,v 1.9 90/03/06 00:08:40 ccount Exp $";
  480. X#endif
  481. X
  482. X
  483. X#include <stdio.h>
  484. X#include <math.h>
  485. X#ifndef SYSV
  486. X#include <strings.h>
  487. X#else
  488. X#include <string.h>
  489. X#endif
  490. X#include "observe.h"
  491. X#include "degree.h"
  492. X
  493. Xextern char *malloc();
  494. X
  495. X/* Format
  496. XName
  497. XR.A
  498. Xdec.
  499. Xmag type size epoch
  500. X*/
  501. X
  502. Xvoid read_objects(infile, objects, nobjects_p, maxobjects)
  503. X     FILE *infile;
  504. X     obj_data_t objects[];
  505. X     int *nobjects_p;
  506. X     int maxobjects;
  507. X{
  508. X  char in_line[1000], *linep;
  509. X  int i, j, nscanned;
  510. X  double ra1, ra2, ra3, ra;
  511. X  double dec1, dec2, dec3, dec;
  512. X  double alpha, delta, alpha2000, delta2000;
  513. X  char typestr[10];
  514. X
  515. X  j = 0;
  516. X  while (!feof(infile)) {
  517. X    linep = fgets(in_line, 1000, infile);
  518. X    if (linep != NULL) {
  519. X      /* remove trailing '\n' */
  520. X      linep[strlen(linep)-1] = '\0';
  521. X      objects[j].name = (char *) malloc((unsigned) strlen(linep)+1);
  522. X      if (objects[j].name != NULL)
  523. X    strcpy(objects[j].name, linep);
  524. X      else objects[j].name = "object";
  525. X      nscanned = 1;
  526. X    } else nscanned = 0;
  527. X    if (nscanned < 1) continue;
  528. X
  529. X    linep = fgets(in_line, 1000, infile);
  530. X    if (linep != NULL)
  531. X      nscanned = sscanf(linep, "%lf %lf %lf",
  532. X         &ra1, &ra2, &ra3);
  533. X    else nscanned = 0;
  534. X    if (nscanned < 1) continue;
  535. X
  536. X    ra = ra1 + ra2/60.0 + ra3/3600.0;
  537. X    objects[j].alpha = ra*15.0;
  538. X
  539. X    linep = fgets(in_line, 1000, infile);
  540. X    if (linep != NULL)
  541. X      nscanned = sscanf(linep, "%lf %lf %lf",
  542. X         &dec1, &dec2, &dec3);
  543. X    else nscanned = 0;
  544. X    if (nscanned < 1) continue;
  545. X
  546. X    dec1 = fabs(dec1);
  547. X    dec = dec1 + dec2/60.0 + dec3/3600.0;
  548. X    for (i=0; linep[i]; i++)
  549. X      if (linep[i] == '-') dec = -dec;
  550. X    objects[j].delta = dec;
  551. X
  552. X    linep = fgets(in_line, 1000, infile);
  553. X    objects[j].size = 0.0;
  554. X    objects[j].equinox = 2000.0;
  555. X    if (linep != NULL)
  556. X      nscanned = sscanf(linep, "%lf %2s %lf %lf",
  557. X            &objects[j].mag, typestr, &objects[j].size,
  558. X            &objects[j].equinox);
  559. X    else nscanned = 0;
  560. X    if (nscanned < 1) continue;
  561. X
  562. X    if (typestr[0]) {
  563. X      objects[j].type[0] = typestr[0];
  564. X      if (typestr[1])
  565. X    objects[j].type[1] = typestr[1];
  566. X      else
  567. X    objects[j].type[1] = ' ';
  568. X    } else {
  569. X      objects[j].type[0] = ' ';
  570. X      objects[j].type[1] = ' ';
  571. X    };
  572. X    objects[j].type[2] = '\0';
  573. X
  574. X    if (objects[j].equinox != 2000.0) {
  575. X      alpha = objects[j].alpha;
  576. X      delta = objects[j].delta;
  577. X
  578. X      precess(objects[j].equinox, 2000.0,
  579. X          alpha, delta, &alpha2000, &delta2000);
  580. X
  581. X      objects[j].alpha2000 = alpha2000;
  582. X      objects[j].delta2000 = delta2000;
  583. X    } else {
  584. X      objects[j].alpha2000 = objects[j].alpha;
  585. X      objects[j].delta2000 = objects[j].delta;
  586. X    };
  587. X
  588. X    j++;
  589. X  };
  590. X  *nobjects_p = j;
  591. X}
  592. X
  593. Xvoid obj_pos(jd, object)
  594. X     double jd;
  595. X     obj_data_t *object;
  596. X{
  597. X}
  598. X
  599. END_OF_FILE
  600. if test 3256 -ne `wc -c <'observe/objcalc.c'`; then
  601.     echo shar: \"'observe/objcalc.c'\" unpacked with wrong size!
  602. fi
  603. # end of 'observe/objcalc.c'
  604. fi
  605. if test -f 'observe/suncalc.c' -a "${1}" != "-c" ; then 
  606.   echo shar: Will not clobber existing file \"'observe/suncalc.c'\"
  607. else
  608. echo shar: Extracting \"'observe/suncalc.c'\" \(4002 characters\)
  609. sed "s/^X//" >'observe/suncalc.c' <<'END_OF_FILE'
  610. X/*
  611. X * suncalc.c
  612. X * Sun position calculations
  613. X *
  614. X * Copyright (c) 1990 by Craig Counterman. All rights reserved.
  615. X *
  616. X * This software may be redistributed freely, not sold.
  617. X * This copyright notice and disclaimer of warranty must remain
  618. X *    unchanged. 
  619. X *
  620. X * No representation is made about the suitability of this
  621. X * software for any purpose.  It is provided "as is" without express or
  622. X * implied warranty, to the extent permitted by applicable law.
  623. X *
  624. X */
  625. X
  626. X#ifndef  lint
  627. Xstatic char rcsid[] =
  628. X  "$Header: suncalc.c,v 1.4 90/02/19 17:21:48 ccount Exp $";
  629. X#endif
  630. X
  631. X
  632. X#include <math.h>
  633. X#include "observe.h"
  634. X#include "degree.h"
  635. X
  636. Xvoid sun_pos(jd, sun_data)
  637. X     double jd;
  638. X     sun_data_t *sun_data;
  639. X{
  640. X  double L, M, Theta, R;
  641. X  double A, B, C, D, E, H;
  642. X  double e, nu;
  643. X  double T;
  644. X  double epsilon;
  645. X  double alpha, delta, alpha2000, delta2000;
  646. X
  647. X  T =  (jd - 2415020.0)/36525.0;
  648. X
  649. X  M = into_range(358.47583 + 35999.04975*T - 0.000150*T*T - 0.0000033*T*T*T);
  650. X  e = 0.01675104 - 0.0000418*T - 0.000000126*T*T;
  651. X  L = into_range(279.69668 + 36000.76892*T + 0.0003025*T*T);
  652. X  anom_calc(M, e, &E, &nu);
  653. X  Theta = into_range(L + nu - M);
  654. X  R = 1.0000002*(1.0 - e * DCOS(E));
  655. X
  656. X  /* More accurate */
  657. X  A = into_range(153.23 + 22518.7541*T);
  658. X  B = into_range(216.57 + 45037.508184*T);
  659. X  C = into_range(312.69 + 32964.3577008*T);
  660. X  D = into_range(350.74 + 445267.1142*T - 0.00144*T*T);
  661. X  E = into_range(231.19 + 20.2*T);
  662. X  H = into_range(353.4  + 65928.715488*T);
  663. X
  664. X  Theta += 0.00134*DCOS(A)+0.00154*DCOS(B)+.002*DCOS(C)
  665. X    +.00179*DSIN(D)+ .00178*DSIN(E);
  666. X  R += 5.43e-06*DSIN(A)+1.575e-05*DSIN(B)+1.627e-05*DSIN(C)+
  667. X    3.076e-05*DCOS(D)+9.27e-06*DSIN(H);
  668. X
  669. X  sun_data->size = 1919.26/R;
  670. X  sun_data->R = R;
  671. X  sun_data->Theta = Theta;
  672. X  epsilon = 23.439291 - 0.0130042* T - 0.00000016* T*T - 0.000000504* T*T*T;
  673. X  alpha = sun_data->alpha
  674. X    = into_range(RAD_TO_DEG * atan2(DCOS(epsilon)*DSIN(Theta), DCOS(Theta)));
  675. X  delta = sun_data->delta = 
  676. X    RAD_TO_DEG * asin(DSIN(epsilon)*DSIN(Theta));
  677. X  precess(2000.0 - (2451545.0 - jd) / 365.25,
  678. X      2000.0, alpha, delta, &alpha2000, &delta2000);
  679. X
  680. X  sun_data->alpha2000 = alpha2000;
  681. X  sun_data->delta2000 = delta2000;
  682. X}
  683. X
  684. X/*
  685. X  alpha = RAD_TO_DEG * atan2(DCOS(epsilon)*DSIN(Theta), DCOS(Theta));
  686. X  delta = RAD_TO_DEG * asin(DSIN(epsilon)*DSIN(Theta));
  687. X*/
  688. X
  689. Xvoid sun_rect(T, equinox_year, R, Theta, X_p, Y_p, Z_p)
  690. Xdouble T, R, Theta, equinox_year;
  691. Xdouble *X_p, *Y_p, *Z_p;
  692. X{
  693. X  double epsilon;
  694. X  double T_eq;
  695. X  double X_0, Y_0, Z_0;
  696. X  double X_x, Y_x, Z_x;
  697. X  double X_y, Y_y, Z_y;
  698. X  double X_z, Y_z, Z_z;
  699. X  double zeta, Z, theta;
  700. X  double zeta_A_1, Z_A_1, theta_A_1;
  701. X  double zeta_A_2, Z_A_2, theta_A_2;
  702. X
  703. X
  704. X  epsilon = obl_jd(T);
  705. X  X_0 = R * DCOS(Theta);
  706. X  Y_0 = R * DSIN(Theta) * DCOS(epsilon);
  707. X  Z_0 = R * DSIN(Theta) * DSIN(epsilon);
  708. X
  709. X  /* Now precess from T to equinox */
  710. X  T_eq = (T - 2451545.0)/36525.0;
  711. X  zeta_A_1= 0.6406161* T_eq + 0.0000839* T_eq*T_eq + 0.0000050* T_eq*T_eq*T_eq;
  712. X  Z_A_1   = 0.6406161* T_eq + 0.0003041* T_eq*T_eq + 0.0000051* T_eq*T_eq*T_eq;
  713. X  theta_A_1=0.5567530* T_eq - 0.0001185* T_eq*T_eq + 0.0000116* T_eq*T_eq*T_eq;
  714. X
  715. X  T_eq = (equinox_year - 2000.0)/100.0;
  716. X  zeta_A_2= 0.6406161* T_eq + 0.0000839* T_eq*T_eq + 0.0000050* T_eq*T_eq*T_eq;
  717. X  Z_A_2   = 0.6406161* T_eq + 0.0003041* T_eq*T_eq + 0.0000051* T_eq*T_eq*T_eq;
  718. X  theta_A_2=0.5567530* T_eq - 0.0001185* T_eq*T_eq + 0.0000116* T_eq*T_eq*T_eq;
  719. X
  720. X  zeta = zeta_A_2 - zeta_A_1;
  721. X  Z = Z_A_2 - Z_A_1;
  722. X  theta = theta_A_2 - theta_A_1;
  723. X
  724. X
  725. X
  726. X  X_x = DCOS(zeta) * DCOS(Z) * DCOS(theta) - DSIN(zeta) * DSIN(zeta);
  727. X  X_y = DSIN(zeta) * DCOS(Z) + DCOS(zeta) * DSIN(Z) * DCOS(theta);
  728. X  X_z = DCOS(zeta) * DSIN(theta);
  729. X
  730. X  Y_x = -DCOS(zeta) * DSIN(Z) - DSIN(zeta) * DCOS(Z) * DCOS(theta);
  731. X  Y_y =  DCOS(zeta) * DCOS(Z) - DSIN(zeta) * DSIN(Z) * DCOS(theta);
  732. X  Y_z = -DSIN(zeta) * DSIN(theta);
  733. X
  734. X  Z_x = -DCOS(Z) * DSIN(theta);
  735. X  Z_y = -DSIN(Z) * DSIN(theta);
  736. X  Z_z = DCOS(theta);
  737. X
  738. X
  739. X  *X_p = X_x*X_0 + Y_x * Y_0 + Z_x * Z_0;
  740. X  *Y_p = X_y*X_0 + Y_y * Y_0 + Z_y * Z_0;
  741. X  *Z_p = X_z*X_0 + Y_z * Y_0 + Z_z * Z_0;
  742. X}
  743. X
  744. END_OF_FILE
  745. if test 4002 -ne `wc -c <'observe/suncalc.c'`; then
  746.     echo shar: \"'observe/suncalc.c'\" unpacked with wrong size!
  747. fi
  748. # end of 'observe/suncalc.c'
  749. fi
  750. if test -f 'samples/mess.obj' -a "${1}" != "-c" ; then 
  751.   echo shar: Will not clobber existing file \"'samples/mess.obj'\"
  752. else
  753. echo shar: Extracting \"'samples/mess.obj'\" \(2988 characters\)
  754. sed "s/^X//" >'samples/mess.obj' <<'END_OF_FILE'
  755. XM_1
  756. X05 34.5
  757. X+22 01
  758. X8.4 NP
  759. XM_2
  760. X21 33.5
  761. X-00 49
  762. X6.5 CG
  763. XM_3
  764. X13 42.2
  765. X+28 23
  766. X6.4 CG
  767. XM_4
  768. X16 23.6
  769. X-26 32
  770. X5.9 CG
  771. XM_5
  772. X15 18.6
  773. X+02 05
  774. X5.75 CG
  775. XM_6
  776. X17 40.1
  777. X-32 13
  778. X4.2 CO
  779. XM_7
  780. X17 53.9
  781. X-34 49
  782. X3.3 CO
  783. XM_8
  784. X18 03.1
  785. X-24 23
  786. X5 CO
  787. XM_9
  788. X17 19.2
  789. X-18 31
  790. X7.9 CG
  791. XM_10
  792. X16 57.1
  793. X-04 06
  794. X6.6 CG
  795. XM_11
  796. X18 51.1
  797. X-06 16
  798. X5.8 CO
  799. XM_12
  800. X16 47.2
  801. X-01 57
  802. X6.6 CG
  803. XM_13
  804. X16 41.7
  805. X+36 28
  806. X5.9 CG
  807. XM_14
  808. X17 37.6
  809. X-03 15
  810. X7.6 CG
  811. XM_15
  812. X21 30.0
  813. X+12 10
  814. X6.35 CG
  815. XM_16
  816. X18 18.8
  817. X-13 47
  818. X6 CO
  819. XM_17
  820. X18 20.8
  821. X-16 11
  822. X6 CO
  823. XM_18
  824. X18 19.9
  825. X-17 08
  826. X6.9 CO
  827. XM_19
  828. X17 02.6
  829. X-26 16
  830. X7.2 CG
  831. XM_20
  832. X18 02.3
  833. X-23 02
  834. X6.3 CO
  835. XM_21
  836. X18 04.6
  837. X-22 30
  838. X5.9 CO
  839. XM_22
  840. X18 36.4
  841. X-29 54
  842. X5.1 CG
  843. XM_23
  844. X17 56.8
  845. X-19 01
  846. X5.5 CO
  847. XM_24
  848. X18 17.0
  849. X-18 35
  850. X4 CO
  851. XM_25
  852. X18 31.6
  853. X-19 15
  854. X4.6 CO
  855. XM_26
  856. X18 45.2
  857. X-09 24
  858. X8 CO
  859. XM_27
  860. X19 59.6
  861. X+22 43
  862. X7.3 NP
  863. XM_28
  864. X18 24.5
  865. X-24 52
  866. X6.9 CG
  867. XM_29
  868. X20 23.9
  869. X+38 32
  870. X6.6 CO
  871. XM_30
  872. X21 40.4
  873. X-23 11
  874. X7.5 CG
  875. XM_31
  876. X00 42.8
  877. X+41 16
  878. X3.5 Gb
  879. XM_32
  880. X00 42.8
  881. X+40 52
  882. X8.2 G2
  883. XM_33
  884. X01 33.9
  885. X+30 40
  886. X7 Gc
  887. XM_34
  888. X02 42.0
  889. X+42 47
  890. X5.2 CO
  891. XM_35
  892. X06 08.9
  893. X+24 20
  894. X5.1 CO
  895. XM_36
  896. X05 36.1
  897. X+34 08
  898. X6 CO
  899. XM_37
  900. X05 52.4
  901. X+32 33
  902. X5.6 CO
  903. XM_38
  904. X05 28.7
  905. X+35 50
  906. X6.4 CO
  907. XM_39
  908. X21 32.2
  909. X+48 26
  910. X4.6 CO
  911. XM_40
  912. X12 21.9
  913. X+58 06
  914. X9 CO
  915. XM_41
  916. X06 47.0
  917. X-20 44
  918. X4.5 CO
  919. XM_42
  920. X05 35.3
  921. X-05 23
  922. X4 CO
  923. XM_43
  924. X05 35.5
  925. X-05 16
  926. X9 ND
  927. XM_44
  928. X08 40.1
  929. X+19 59
  930. X3.1 CO
  931. XM_45
  932. X03 47.0
  933. X+24 07
  934. X1.2 CO
  935. XM_46
  936. X07 41.8
  937. X-14 49
  938. X6.1 CO
  939. XM_47
  940. X07 36.6
  941. X-14 30
  942. X4.4 CO
  943. XM_48
  944. X08 13.8
  945. X-05 48
  946. X5.8 CO
  947. XM_49
  948. X12 29.8
  949. X+08 01
  950. X10.2 G4
  951. XM_50
  952. X07 03.2
  953. X-08 20
  954. X5.9 CO
  955. XM_51
  956. X13 30.0
  957. X+47 11
  958. X8.8 Gc
  959. XM_52
  960. X23 24.2
  961. X+61 35
  962. X6.9 CO
  963. XM_53
  964. X13 12.9
  965. X+18 10
  966. X7.7 CG
  967. XM_54
  968. X18 55.1
  969. X-30 29
  970. X7.7 CG
  971. XM_55
  972. X19 40.0
  973. X-30 58
  974. X7 CG
  975. XM_56
  976. X19 16.6
  977. X+30 11
  978. X8.3 CG
  979. XM_57
  980. X18 53.6
  981. X+33 02
  982. X9 NP
  983. XM_58
  984. X12 37.8
  985. X+11 50
  986. X11.5 Gb
  987. XM_59
  988. X12 42.1
  989. X+11 39
  990. X11 G3
  991. XM_60
  992. X12 43.7
  993. X+11 34
  994. X10.3 G1
  995. XM_61
  996. X12 22.0
  997. X+04 29
  998. X10.9 Gc
  999. XM_62
  1000. X17 01.2
  1001. X-30 07
  1002. X6.6 CG
  1003. XM_63
  1004. X13 15.8
  1005. X+42 02
  1006. X9.7 Gb
  1007. XM_64
  1008. X12 56.7
  1009. X+21 41
  1010. X8.9 Ga
  1011. XM_65
  1012. X11 18.9
  1013. X+13 05
  1014. X9.6 G 
  1015. XM_66
  1016. X11 20.2
  1017. X+12 59
  1018. X8.9 Gb
  1019. XM_67
  1020. X08 50.4
  1021. X+11 49
  1022. X6.9 CO
  1023. XM_68
  1024. X12 39.5
  1025. X-26 45
  1026. X8.2 CG
  1027. XM_69
  1028. X18 34.4
  1029. X-32 21
  1030. X7.7 CG
  1031. XM_70
  1032. X18 43.2
  1033. X-32 18
  1034. X8.1 CG
  1035. XM_71
  1036. X19 53.8
  1037. X+18 47
  1038. X8.3 CG
  1039. XM_72
  1040. X20 53.5
  1041. X-12 32
  1042. X9.4 CG
  1043. XM_73
  1044. X20 59.0
  1045. X-12 38
  1046. X8.9 CO
  1047. XM_74
  1048. X01 36.6
  1049. X+15 48
  1050. X10.5 Gc
  1051. XM_75
  1052. X20 06.1
  1053. X-21 55
  1054. X8.6 CG
  1055. XM_76
  1056. X01 42.4
  1057. X+51 34
  1058. X11 NP
  1059. XM_76
  1060. X01 42.3
  1061. X+51 34
  1062. X11 NP
  1063. XM_77
  1064. X02 42.7
  1065. X-00 02
  1066. X10.5 GS
  1067. XM_78
  1068. X05 46.8
  1069. X+00 04
  1070. X8 ND
  1071. XM_79
  1072. X05 24.5
  1073. X-24 33
  1074. X8.4 CG
  1075. XM_80
  1076. X16 17.0
  1077. X-22 59
  1078. X7.2 CG
  1079. XM_81
  1080. X09 55.6
  1081. X+69 04
  1082. X8.1 Gb
  1083. XM_82
  1084. X09 55.8
  1085. X+69 41
  1086. X9.2 GI
  1087. XM_83
  1088. X13 37.1
  1089. X-29 52
  1090. X8.5 Gc
  1091. XM_84
  1092. X12 25.1
  1093. X+12 54
  1094. X10.8 G1
  1095. XM_85
  1096. X12 25.5
  1097. X+18 12
  1098. X10.2 G 
  1099. XM_86
  1100. X12 26.3
  1101. X+12 57
  1102. X10.9 G3
  1103. XM_87
  1104. X12 30.9
  1105. X+12 24
  1106. X10.4 G1
  1107. XM_88
  1108. X12 32.1
  1109. X+14 26
  1110. X10.6 G 
  1111. XM_89
  1112. X12 35.7
  1113. X+12 34
  1114. X11.1 G0
  1115. XM_90
  1116. X12 36.9
  1117. X+13 10
  1118. X11.8 Gb
  1119. XM_91
  1120. X12 35.5
  1121. X+14 30
  1122. X11.5 GB
  1123. XM_92
  1124. X17 17.1
  1125. X+43 08
  1126. X6.5 CG
  1127. XM_93
  1128. X07 44.6
  1129. X-23 52
  1130. X6.2 CO
  1131. XM_94
  1132. X12 50.9
  1133. X+41 08
  1134. X8.7 Gb
  1135. XM_95
  1136. X10 44.0
  1137. X+11 42
  1138. X11.2 GB
  1139. XM_96
  1140. X10 46.8
  1141. X+11 49
  1142. X10 Gb
  1143. XM_97
  1144. X11 14.8
  1145. X+55 01
  1146. X11 NP
  1147. XM_98
  1148. X12 13.9
  1149. X+14 55
  1150. X11 Gb
  1151. XM_99
  1152. X12 18.9
  1153. X+14 26
  1154. X10.2 Gc
  1155. XM_100
  1156. X12 23.0
  1157. X+15 50
  1158. X10.6 Gc
  1159. XM_101
  1160. X14 03.3
  1161. X+54 22
  1162. X8.7 Gc
  1163. XM_102?
  1164. X15 06.5
  1165. X+55 45
  1166. X11.1 G6
  1167. XM_103
  1168. X01 33.2
  1169. X+60 42
  1170. X7.4 CO
  1171. XM_104
  1172. X12 39.9
  1173. X-11 37
  1174. X9.3 Ga
  1175. XM_105
  1176. X10 47.8
  1177. X+12 35
  1178. X9.6 G1
  1179. XM_106
  1180. X12 18.9
  1181. X+47 19
  1182. X9.6 Gb
  1183. XM_107
  1184. X16 32.5
  1185. X-13 03
  1186. X8.1 CG
  1187. XM_108
  1188. X11 11.5
  1189. X+55 40
  1190. X10.7 Gc
  1191. XM_109
  1192. X11 57.6
  1193. X+53 23
  1194. X10.7 GB
  1195. XM_110
  1196. X00 40.4
  1197. X+41 41
  1198. X8 G6
  1199. END_OF_FILE
  1200. if test 2988 -ne `wc -c <'samples/mess.obj'`; then
  1201.     echo shar: \"'samples/mess.obj'\" unpacked with wrong size!
  1202. fi
  1203. # end of 'samples/mess.obj'
  1204. fi
  1205. if test -f 'samples/test.star1-5' -a "${1}" != "-c" ; then 
  1206.   echo shar: Will not clobber existing file \"'samples/test.star1-5'\"
  1207. else
  1208. echo shar: Extracting \"'samples/test.star1-5'\" \(3150 characters\)
  1209. sed "s/^X//" >'samples/test.star1-5' <<'END_OF_FILE'
  1210. X000000+0000100SSA1 A
  1211. X000000+0100110SSB1 B
  1212. X000000+0200120SSF1 C
  1213. X000000+0300130SSG1 D
  1214. X000000+0400140SSK1 E
  1215. X000000+0500150SSF1 F
  1216. X000000+0600160SSG1 G
  1217. X000000+0700170SSN1 H
  1218. X000000+0800180SSS1 I
  1219. X000000+0900190SSO2 J
  1220. X001000+0000200SSK2 K
  1221. X001000+0100210SSA2 L
  1222. X001000+0200220SSM2 M
  1223. X001000+0300230SSN2 N
  1224. X001000+0400240SSO2 O
  1225. X001000+0500250SSM2 P
  1226. X001000+0600260SSR2 Q
  1227. X001000+0700270SSR2 R
  1228. X001000+0800280SSS2 S
  1229. X001000+0900290SSO3 T
  1230. X002000+0000300SSB3 U
  1231. X002000+0100310SSA3 V
  1232. X002000+0200320SSF3 W
  1233. X002000+0300330SSG3 X
  1234. X002000+0400340SSK3 Y
  1235. X002000+0500350SSM3 Z
  1236. X002000+0600360SSR3 a
  1237. X002000+0700370SSN3 b
  1238. X002000+0800380SSS3 c
  1239. X002000+0900390SSO4 d
  1240. X003000+0000400SSB4 e
  1241. X003000+0100410SSA4 f
  1242. X003000+0200420SSF4 g
  1243. X003000+0300430SSG4 h
  1244. X003000+0400440SSK4 i
  1245. X003000+0500450SSM4 j
  1246. X003000+0600460SSR4 k
  1247. X003000+0700470SSN4 l
  1248. X003000+0800480SSS4 m
  1249. X003000+0900490SSO5 n
  1250. X004000+0000500SSB5 o
  1251. X004000+0100510SSA5 p
  1252. X004000+0200520SSF5 q
  1253. X004000+0300530SSG5 r
  1254. X004000+0400540SSK5 s
  1255. X004000+0500550SSM5 t
  1256. X004000+0600560SSR5 u
  1257. X004000+0700570SSN5 v
  1258. X004000+0800580SSS5 w
  1259. X004000+0900590SSO6 x
  1260. X000100+0000100SDB6 z
  1261. X000100+0100110SDA6A 
  1262. X000100+0200120SDF6B 
  1263. X000100+0300130SDG6C 
  1264. X000100+0400140SDK6D 
  1265. X000100+0500150SDM6E 
  1266. X000100+0600160SDR6F 
  1267. X000100+0700170SDN6G 
  1268. X000100+0800180SDS6H 
  1269. X000100+0900190SDO I 
  1270. X001100+0000200SDB J 
  1271. X001100+0100210SDA K 
  1272. X001100+0200220SDF L 
  1273. X001100+0300230SDG M 
  1274. X001100+0400240SDK N 
  1275. X001100+0500250SDM O 
  1276. X001100+0600260SDR P 
  1277. X001100+0700270SDN Q 
  1278. X001100+0800280SDS R 
  1279. X001100+0900290SDO S 
  1280. X002100+0000300SDB T 
  1281. X002100+0100310SDA U 
  1282. X002100+0200320SDF V 
  1283. X002100+0300330SDG W 
  1284. X002100+0400340SDK X 
  1285. X002100+0500350SDM Y 
  1286. X002100+0600360SDR Z 
  1287. X002100+0700370SDN a 
  1288. X002100+0800380SDS b 
  1289. X002100+0900390SDO c 
  1290. X003100+0000400SDB d 
  1291. X003100+0100410SDA e 
  1292. X003100+0200420SDF f 
  1293. X003100+0300430SDG g 
  1294. X003100+0400440SDK h 
  1295. X003100+0500450SDM i 
  1296. X003100+0600460SDR j 
  1297. X003100+0700470SDN k 
  1298. X003100+0800480SDS l 
  1299. X003100+0900490SDO m 
  1300. X004100+0000500SDB n 
  1301. X004100+0100510SDA o 
  1302. X004100+0200520SDF p 
  1303. X004100+0300530SDG q 
  1304. X004100+0400540SDK r 
  1305. X004100+0500550SDM s 
  1306. X004100+0600560SDR t 
  1307. X004100+0700570SDN u 
  1308. X004100+0800580SDS v 
  1309. X004100+0900590SDO w 
  1310. X000200+0000100SVB x 
  1311. X000200+0100110SVA y 
  1312. X000200+0200120SVF z 
  1313. X000200+0300130SVG A 
  1314. X000200+0400140SVK AA
  1315. X000200+0500150SVM AA
  1316. X000200+0600160SVR AA
  1317. X000200+0700170SVN AA
  1318. X000200+0800180SVS AA
  1319. X000200+0900190SVO AA
  1320. X001200+0000200SVB AA
  1321. X001200+0100210SVA AA
  1322. X001200+0200220SVF AA
  1323. X001200+0300230SVG AA
  1324. X001200+0400240SVK AA
  1325. X001200+0500250SVM AA
  1326. X001200+0600260SVR AA
  1327. X001200+0700270SVN AA
  1328. X001200+0800280SVS AA
  1329. X001200+0900290SVO AA
  1330. X002200+0000300SVB AA
  1331. X002200+0100310SVA AA
  1332. X002200+0200320SVF AA
  1333. X002200+0300330SVG AA
  1334. X002200+0400340SVK AA
  1335. X002200+0500350SVM AA
  1336. X002200+0600360SVR AA
  1337. X002200+0700370SVN AA
  1338. X002200+0800380SVS AA
  1339. X002200+0900390SVO AA
  1340. X003200+0000400SVB AA
  1341. X003200+0100410SVA AA
  1342. X003200+0200420SVF AA
  1343. X003200+0300430SVG AA
  1344. X003200+0400440SVK AA
  1345. X003200+0500450SVM AA
  1346. X003200+0600460SVR AA
  1347. X003200+0700470SVN AA
  1348. X003200+0800480SVS AA
  1349. X003200+0900490SVO AA
  1350. X004200+0000500SVB AA
  1351. X004200+0100510SVA AA
  1352. X004200+0200520SVF AA
  1353. X004200+0300530SVG AA
  1354. X004200+0400540SVK AA
  1355. X004200+0500550SVM AA
  1356. X004200+0600560SVR AA
  1357. X004200+0700570SVN AA
  1358. X004200+0800580SVS AA
  1359. X004200+0900590SVA AA
  1360. END_OF_FILE
  1361. if test 3150 -ne `wc -c <'samples/test.star1-5'`; then
  1362.     echo shar: \"'samples/test.star1-5'\" unpacked with wrong size!
  1363. fi
  1364. # end of 'samples/test.star1-5'
  1365. fi
  1366. if test -f 'starchart/README.st' -a "${1}" != "-c" ; then 
  1367.   echo shar: Will not clobber existing file \"'starchart/README.st'\"
  1368. else
  1369. echo shar: Extracting \"'starchart/README.st'\" \(3826 characters\)
  1370. sed "s/^X//" >'starchart/README.st' <<'END_OF_FILE'
  1371. XAtari ST support has been provided by Holger Zessel.  He reports that
  1372. Xthere is still a problem causing occasional crashing.  I believe this
  1373. Xis a small problem which we will have fixed soon.
  1374. X
  1375. XYou may wish to apply this small patch to starm2.c:
  1376. X================Cut here================
  1377. X***************
  1378. X*** 215,221
  1379. X        {
  1380. X          char tstr[20];
  1381. X          rastr(tstr, ras);
  1382. X!         D_fontsize(10, HELV);
  1383. X          D_text(xloc3+htext_xoff, yloc-htext_yoff, tstr, FALSE);
  1384. X        }
  1385. X        }
  1386. X
  1387. X--- 215,221 -----
  1388. X        {
  1389. X          char tstr[20];
  1390. X          rastr(tstr, ras);
  1391. X!         D_fontsize(7, HELV);
  1392. X          D_text(xloc3+htext_xoff, yloc-htext_yoff, tstr, FALSE);
  1393. X        }
  1394. X        }
  1395. X***************
  1396. X*** 246,252
  1397. X          {
  1398. X            char tstr[20];
  1399. X            declstr(tstr, dl);
  1400. X!           D_fontsize(10, HELV);
  1401. X            D_text(xloc3+vtext_xoff, yloc3+vtext_yoff, tstr, FALSE);
  1402. X          }
  1403. X      }
  1404. X
  1405. X--- 246,252 -----
  1406. X          {
  1407. X            char tstr[20];
  1408. X            declstr(tstr, dl);
  1409. X!           D_fontsize(7, HELV);
  1410. X            D_text(xloc3+vtext_xoff, yloc3+vtext_yoff, tstr, FALSE);
  1411. X          }
  1412. X      }
  1413. X================Cut here================
  1414. X
  1415. XHolger's comments follow:
  1416. X
  1417. XSome informations to the atari st driver:
  1418. X-----------------------------------------
  1419. XThe atari driver uses gdos, supports monochrome only at this time
  1420. Xand is *very *unstable. This has something to do with the last changes
  1421. Xto starsupp.c and I had not the time to find the bugs yet.
  1422. XI'll supply fixes as soon as I am able to do this. observe and dataconv
  1423. Xare ok in the atari version.
  1424. X
  1425. XThe atari special feature to commandline options is the driver option
  1426. X-a d<num>   .
  1427. XThis tells the driver to open physical workstation <num>.
  1428. X<num> must appear in assign.sys corresponding to an appropriate 
  1429. Xgdos driver. 31 has to be the handle for the metadevice driver.
  1430. Xstarst writes metafiles but an option for the metafile name 
  1431. Xis still missing. For now it is a constant name "gemfile.gem".
  1432. XIf I read the metafile into easydraw the whole chart is upside down.
  1433. XI don't know why this happens but it may depend on the NDC coordinates
  1434. X(see below). An easy workaround is to select all, group all, and to mirror it
  1435. Xhorizontally. After an ungroup everything can be edited as usual. This is
  1436. Xa big feature I think. Most other drivers are not able to offer an afterward
  1437. Xediting of charts.
  1438. X  I use amcgdos and NDC coordinates (virtual [0..32767,0..32767]) for all
  1439. Xdevices. There may be gdos versions which do not support NDC for screen
  1440. Xbut I cannot prove this. I added a little assembler file with a function
  1441. Xtelling whether gdos is loaded or not. This may be interesting for other
  1442. Xapplications too. But it is MWCas dialect.
  1443. XThe hole stuff is compilable with MWC3.06. I didn't try other versions.
  1444. X
  1445. X  I regret that it is so unstable but it was not one version before. I think
  1446. Xthe use of gdos is a very flexible solution as even people with
  1447. Xlaser printer are directly supported if they have a gdosdriver for their
  1448. Xprinter. Some time ago an atari version was posted already but it supported
  1449. Xonly color screens and furthermore screenhardcopies are not what I call
  1450. Xa finder chart. There are still many things to do with respect to the symbols
  1451. Xused to represent objects in sky. Object size is not yet optimal and
  1452. Xfor the font size this the case too. Fonts are a drawback of gdos as
  1453. Xone is not able to be absolutely device independent.
  1454. XThe release of the atari st stuff is thought as expandable in future and if
  1455. Xpeople have interest in making extensions they should feel free to do this.
  1456. XI suggest a second screen with an GEM interface...........
  1457. X
  1458. X--Holger
  1459. X----------------------------------------------------------------
  1460. XHolger Zessel, uucp: ...!uunet!unido!uklirb!incas!zessel
  1461. X    or    zessel@informatik.uni-kl.de
  1462. X    or    zessel%informatik.uni-kl.de@relay.cs.net (from usa)
  1463. XFachbereich Informatik, SFB124-D1
  1464. XUniversitaet Kaiserslautern, West-Germany
  1465. END_OF_FILE
  1466. if test 3826 -ne `wc -c <'starchart/README.st'`; then
  1467.     echo shar: \"'starchart/README.st'\" unpacked with wrong size!
  1468. fi
  1469. # end of 'starchart/README.st'
  1470. fi
  1471. if test -f 'starchart/icon.h' -a "${1}" != "-c" ; then 
  1472.   echo shar: Will not clobber existing file \"'starchart/icon.h'\"
  1473. else
  1474. echo shar: Extracting \"'starchart/icon.h'\" \(3355 characters\)
  1475. sed "s/^X//" >'starchart/icon.h' <<'END_OF_FILE'
  1476. X/* X11 icon */
  1477. X/*
  1478. X * 
  1479. X * $Header: icon.h,v 2.2 90/01/10 02:06:36 ccount Exp $
  1480. X * 
  1481. X*/
  1482. X
  1483. X
  1484. X#define icon_width 63
  1485. X#define icon_height 63
  1486. X#define icon_x_hot 31
  1487. X#define icon_y_hot 31
  1488. Xstatic char icon_bits[] = {
  1489. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  1490. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x1f, 0x00, 0x00, 0x00,
  1491. X   0x00, 0x00, 0xc0, 0xff, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0xf0, 0xff,
  1492. X   0xff, 0x07, 0x00, 0x00, 0x00, 0x00, 0xfc, 0xff, 0xff, 0x1f, 0x00, 0x00,
  1493. X   0x00, 0x00, 0xff, 0xff, 0xff, 0x7f, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff,
  1494. X   0xff, 0xff, 0x01, 0x00, 0x00, 0xe0, 0xff, 0xbf, 0xff, 0xff, 0x03, 0x00,
  1495. X   0x00, 0xf0, 0xff, 0xff, 0xff, 0xff, 0x07, 0x00, 0x00, 0xf8, 0xbf, 0xff,
  1496. X   0xff, 0xff, 0x0f, 0x00, 0x00, 0xfc, 0xff, 0xff, 0xef, 0xdf, 0x1f, 0x00,
  1497. X   0x00, 0x7e, 0xff, 0xff, 0xff, 0xff, 0x3f, 0x00, 0x00, 0xff, 0xff, 0xff,
  1498. X   0xff, 0xff, 0x7f, 0x00, 0x80, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00,
  1499. X   0x80, 0xff, 0xff, 0xfd, 0xff, 0xff, 0xff, 0x00, 0xc0, 0xff, 0xff, 0xff,
  1500. X   0xff, 0xef, 0xff, 0x01, 0xc0, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x01,
  1501. X   0xe0, 0xff, 0xff, 0xff, 0xbf, 0xff, 0xbf, 0x03, 0xe0, 0xff, 0xff, 0xff,
  1502. X   0xff, 0xff, 0xff, 0x03, 0xf0, 0xf7, 0xff, 0xff, 0xff, 0xff, 0xff, 0x07,
  1503. X   0xf0, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xfb, 0x07, 0xf8, 0x7f, 0xff, 0xff,
  1504. X   0xff, 0xff, 0xff, 0x0f, 0xf8, 0xff, 0x7f, 0xff, 0xff, 0xef, 0xff, 0x0f,
  1505. X   0xf8, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x00, 0x00, 0x00,
  1506. X   0x00, 0x00, 0x00, 0x00, 0xfc, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f,
  1507. X   0xfc, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f, 0x3c, 0x06, 0x63, 0x38,
  1508. X   0x76, 0x63, 0x18, 0x1c, 0xdc, 0xdd, 0x5d, 0xd7, 0x75, 0x5d, 0x77, 0x1f,
  1509. X   0xdc, 0xdf, 0x5d, 0xd7, 0x77, 0x5d, 0x77, 0x1f, 0x3c, 0xde, 0x5d, 0xd8,
  1510. X   0x07, 0x5d, 0x78, 0x1f, 0xfc, 0xdd, 0x41, 0xd7, 0x77, 0x41, 0x77, 0x1f,
  1511. X   0xdc, 0xdd, 0x5d, 0xd7, 0x75, 0x5d, 0x77, 0x1f, 0x3c, 0xde, 0x5d, 0x37,
  1512. X   0x76, 0x5d, 0x77, 0x1f, 0xfc, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f,
  1513. X   0xfc, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f, 0x00, 0x00, 0x00, 0x00,
  1514. X   0x00, 0x00, 0x00, 0x00, 0xf8, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f,
  1515. X   0xf8, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xf8, 0xff, 0xff, 0xff,
  1516. X   0xff, 0xfd, 0xff, 0x0e, 0xf0, 0xff, 0xff, 0xef, 0xff, 0xff, 0xff, 0x07,
  1517. X   0xf0, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x07, 0xe0, 0xff, 0xff, 0xff,
  1518. X   0xff, 0xff, 0xff, 0x03, 0xe0, 0xfe, 0xff, 0xff, 0xff, 0xfe, 0xff, 0x03,
  1519. X   0xc0, 0xff, 0xfe, 0xff, 0xfb, 0xff, 0xff, 0x01, 0xc0, 0xff, 0xff, 0xfd,
  1520. X   0xff, 0x7f, 0xff, 0x01, 0x80, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00,
  1521. X   0x80, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00, 0x00, 0xff, 0xff, 0xff,
  1522. X   0xff, 0xff, 0x7f, 0x00, 0x00, 0xfe, 0xff, 0xff, 0xff, 0xff, 0x3f, 0x00,
  1523. X   0x00, 0xfc, 0xdf, 0xff, 0xbf, 0xff, 0x1f, 0x00, 0x00, 0xf8, 0xff, 0xff,
  1524. X   0xff, 0xff, 0x0f, 0x00, 0x00, 0xf0, 0xff, 0xff, 0xff, 0xff, 0x07, 0x00,
  1525. X   0x00, 0xe0, 0xff, 0xef, 0xff, 0xff, 0x03, 0x00, 0x00, 0xc0, 0xbf, 0xff,
  1526. X   0x7f, 0xff, 0x01, 0x00, 0x00, 0x00, 0xff, 0xff, 0xff, 0x7f, 0x00, 0x00,
  1527. X   0x00, 0x00, 0xfc, 0xff, 0xff, 0x1f, 0x00, 0x00, 0x00, 0x00, 0xf0, 0xff,
  1528. X   0xff, 0x07, 0x00, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x01, 0x00, 0x00,
  1529. X   0x00, 0x00, 0x00, 0xfc, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  1530. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
  1531. END_OF_FILE
  1532. if test 3355 -ne `wc -c <'starchart/icon.h'`; then
  1533.     echo shar: \"'starchart/icon.h'\" unpacked with wrong size!
  1534. fi
  1535. # end of 'starchart/icon.h'
  1536. fi
  1537. if test -f 'starchart/makefile.st' -a "${1}" != "-c" ; then 
  1538.   echo shar: Will not clobber existing file \"'starchart/makefile.st'\"
  1539. else
  1540. echo shar: Extracting \"'starchart/makefile.st'\" \(4266 characters\)
  1541. sed "s/^X//" >'starchart/makefile.st' <<'END_OF_FILE'
  1542. X#    Makefile for atari ST
  1543. X#
  1544. X#    $Header: makefile.st,v 1.1 90/03/08 20:14:24 ccount Exp $
  1545. X#
  1546. XTARGS= starst
  1547. X
  1548. X#SITE DEPENDENCIES
  1549. X#
  1550. XLOCAL=-DSYSV -DATARI_ST -Ic:\include\local -DREADMODE=\"rb\"
  1551. X
  1552. X
  1553. X# FOR ALL
  1554. X# define OLD_GREEK if you have the old yale.star file, with a
  1555. X#                slightly different greek encoding
  1556. X# To produce programs which allow keyboard user interaction with the -u flag, 
  1557. X#    see COBJ and starmain.o below.
  1558. X# FOR POSTSCRIPT
  1559. X# define USE_FINE_MACROS if you want to use finer macros than usual:
  1560. X#     star size varies continuously with magnitude.
  1561. X#        Needs printer with lots of available memory
  1562. X#
  1563. X#DEFINES= -DRELEASE3_FONTS -DUSE_X_DASHES -DUSE_FINE_MACROS
  1564. XDEFINES= -DRELEASE3_FONTS -DUSE_X_DASHES
  1565. X
  1566. X#destination for 'make install', otherwise not important
  1567. XBINDIR = "g:\starch32"
  1568. X
  1569. X#The following may be defined here to set default data file locations
  1570. X# filename    filetype    description
  1571. X# STARFILE    STARFTYPE    bright star data (yale)
  1572. X# INDEXFILE    INDEXFTYPE    index to fainter stars (SAO)
  1573. X# NEBFILE    NEBFTYPE    nebulae
  1574. X# BOUNDFILE    BOUNDFTYPE    constellation boundaries
  1575. X# PATTERNFILE    PATTFTYPE    constellation patterns
  1576. X# CNAMEFILE    CNAMEFTYPE    constellation names
  1577. X# PLANETFILE    PLANETFTYPE    planet positions
  1578. X
  1579. X# other files
  1580. X# CONSTFILE    constellation locations
  1581. X# RCFILE    resource file
  1582. X
  1583. X# Define as needed only
  1584. X# Remember, there are defaults in the code
  1585. X
  1586. X# Example
  1587. XFILEROOT=g:\\stardata
  1588. XSTAR="$(FILEROOT)\\yale.bin"
  1589. XSTART=BINFULL
  1590. XINDEX="$(FILEROOT)\\index.ind"
  1591. XINDEXT=INDEXTYPE
  1592. X# only currently valid index file type
  1593. XNEB="$(FILEROOT)\\deepsky.bin"
  1594. XNEBT=BINFULL
  1595. XBOUND="$(FILEROOT)\\boundaries.str"
  1596. XBOUNDT=LINEREAD
  1597. XPATT="$(FILEROOT)\\pattern.str"
  1598. XPATTTY=LINEREAD
  1599. XCNAME="$(FILEROOT)\\cnames.str"
  1600. XCNAMET=LINEREAD
  1601. XPLANET=".\\planet.str"
  1602. X# Planets move, so make it local
  1603. XPLANETTY=LINEREAD
  1604. XCONS="$(FILEROOT)\\con.loc"
  1605. XRC=".\\star.rc"
  1606. X
  1607. XFILEFLAGS= \
  1608. X        -DSTARFILE='$(STAR)' \
  1609. X        -DSTARFTYPE='$(START)' \
  1610. X        -DINDEXFILE='$(INDEX)' \
  1611. X        -DINDEXFTYPE='$(INDEXT)' \
  1612. X        -DNEBFILE='$(NEB)' \
  1613. X        -DNEBFTYPE='$(NEBT)' \
  1614. X        -DBOUNDFILE='$(BOUND)' \
  1615. X        -DBOUNDFTYPE='$(BOUNDT)' \
  1616. X        -DPATTERNFILE='$(PATT)' \
  1617. X        -DPATTFTYPE='$(PATTTY)' \
  1618. X        -DCNAMEFILE='$(CNAME)' \
  1619. X        -DCNAMEFTYPE='$(CNAMET)' \
  1620. X        -DPLANETFILE='$(PLANET)' \
  1621. X        -DPLANETFTYPE='$(PLANETTY)' \
  1622. X        -DCONSTFILE='$(CONS)' \
  1623. X        -DRCFILE='$(RC)'
  1624. X
  1625. X
  1626. Xall: $(TARGS)
  1627. X
  1628. X#CFLAGS= $(FILEFLAGS) $(LOCAL) $(DEFINES) -f68881
  1629. X#LDFLAGS = 
  1630. XCFLAGS= $(FILEFLAGS) $(LOCAL) $(DEFINES) -VCSD -f
  1631. XLDFLAGS = -VCSD -f
  1632. X
  1633. X
  1634. X#Include interact.o in COBJ to support keyboard user interaction
  1635. X#COBJ=starmain.o starm2.o starsupp.o readfile.o parse_input.o
  1636. XCOBJ=starmain.o starm2.o starsupp.o readfile.o parse_input.o interact.o 
  1637. XCOBJIM=$(COBJ) starimages.o
  1638. XCOBJIMA=$(COBJ) starimages_a.o
  1639. X
  1640. Xstarst: $(COBJ) starst.o starcust.o vqgdos.o
  1641. X    $(CC) $(LDFLAGS) $(COBJ) starst.o starcust.o vqgdos.o -lm -laes -lvdi\
  1642. X                                                     -o $@
  1643. X# use -DINTERACTIVE_CONTROL in starmain.o and starm2.o
  1644. X#     to allow keyboard user interaction
  1645. Xstarmain.o: starmain.c Makefile star3.h parse_input.h
  1646. X    $(CC) $(CFLAGS) -DINTERACTIVE_CONTROL -c starmain.c
  1647. X
  1648. Xstarm2.o: starm2.c Makefile star3.h
  1649. X    $(CC) $(CFLAGS) -DINTERACTIVE_CONTROL -c starm2.c
  1650. X
  1651. Xstarmain_i.o: starmain.c Makefile star3.h parse_input.h
  1652. X    -mv starmain.o starmain_n.o
  1653. X    $(CC) $(CFLAGS) -DINTERACTIVE_CONTROL -c starmain.c
  1654. X    mv starmain.o starmain_i.o
  1655. X    -mv starmain_n.o starmain.o
  1656. X
  1657. Xstarm2_i.o: starm2.c Makefile star3.h
  1658. X    -mv starm2.o starm2_n.o
  1659. X    $(CC) $(CFLAGS) -DINTERACTIVE_CONTROL -c starm2.c
  1660. X    mv starm2.o starm2_i.o
  1661. X    -mv starm2_n.o starm2.o
  1662. X
  1663. Xreadfile.o: readfile.c star3.h
  1664. X
  1665. Xstarimages.o: starimages.c star3.h
  1666. X    $(CC) $(CFLAGS) -c starimages.c
  1667. X
  1668. X#starimages_a.o defines area operations for drivers which otherwise don't
  1669. X#  support them
  1670. Xstarimages_a.o: Makefile starimages.c star3.h
  1671. X    -mv starimages.o starimages_n.o
  1672. X    $(CC) $(CFLAGS) -DAREAS -c starimages.c
  1673. X    mv starimages.o starimages_a.o
  1674. X    -mv starimages_n.o starimages.o
  1675. X
  1676. Xinteract.o: star3.h parse_input.h patchlevel.h
  1677. Xparse_input.o: star3.h parse_input.h
  1678. Xstarcust.o: star3.h 
  1679. Xstarsample.o: star3.h 
  1680. Xstarsupp.o: star3.h 
  1681. Xstarst.o: star3.h
  1682. X
  1683. X
  1684. Xinstall: all
  1685. X    strip $(TARGS)
  1686. X    mv $(TARGS) $(BINDIR)
  1687. X
  1688. Xdist:
  1689. X    cp $(FILES) $(DISTDIR)
  1690. X
  1691. Xclean:
  1692. X    rm -f $(OBJS) $(TARGS) a.out core
  1693. END_OF_FILE
  1694. if test 4266 -ne `wc -c <'starchart/makefile.st'`; then
  1695.     echo shar: \"'starchart/makefile.st'\" unpacked with wrong size!
  1696. fi
  1697. # end of 'starchart/makefile.st'
  1698. fi
  1699. if test -f 'starchart/starXawDlog.h' -a "${1}" != "-c" ; then 
  1700.   echo shar: Will not clobber existing file \"'starchart/starXawDlog.h'\"
  1701. else
  1702. echo shar: Extracting \"'starchart/starXawDlog.h'\" \(3578 characters\)
  1703. sed "s/^X//" >'starchart/starXawDlog.h' <<'END_OF_FILE'
  1704. X/* Header for Athena widgets dialogs */
  1705. X/*
  1706. X *
  1707. X * $Header: starXawDlog.h,v 1.5 90/02/19 17:58:10 ccount Exp $
  1708. X * 
  1709. X *
  1710. X * Copyright (c) 1990 by Craig Counterman. All rights reserved.
  1711. X *
  1712. X * This software may be redistributed freely, not sold.
  1713. X * This copyright notice and disclaimer of warranty must remain
  1714. X *    unchanged. 
  1715. X *
  1716. X * No representation is made about the suitability of this
  1717. X * software for any purpose.  It is provided "as is" without express or
  1718. X * implied warranty, to the extent permitted by applicable law.
  1719. X *
  1720. X */
  1721. X
  1722. X
  1723. X#ifndef MAXPATHLEN
  1724. X#define MAXPATHLEN 1025
  1725. X#endif
  1726. X
  1727. X
  1728. Xtypedef enum {
  1729. X  NoDialog,
  1730. X  ChartDialog,
  1731. X  TypeDialog,
  1732. X  MagnitudesDialog,
  1733. X  LayersDialog,
  1734. X  Map_filesDialog,
  1735. X  Projection_modeDialog,
  1736. X  Magnitude_labelsDialog,
  1737. X  GridDialog,
  1738. X  Edit_mapwinsDialog,
  1739. X  X_parmsDialog
  1740. X} DlogType;
  1741. X
  1742. X
  1743. X#define ChartStringLen 12
  1744. Xtypedef struct {
  1745. X  double ra, de, sc;
  1746. X  char ra_str[ChartStringLen], de_str[ChartStringLen], sc_str[ChartStringLen];
  1747. X  Widget ra_wid, de_wid, sc_wid;
  1748. X  char *title;
  1749. X  Widget title_wid;
  1750. X  char *constfile;
  1751. X  int all_invert;
  1752. X  int precess;
  1753. X  double to_precess;
  1754. X  char to_p_str[ChartStringLen];
  1755. X  Widget to_p_wid;
  1756. X} ChartD_S;
  1757. X
  1758. Xtypedef struct {
  1759. X  int chart_type;
  1760. X} TypeD_S;
  1761. X
  1762. X#define MagStringLen 12
  1763. Xtypedef struct {
  1764. X  double all_lbllim, all_maglim, all_gklim;
  1765. X  char all_lbllim_str[MagStringLen], all_maglim_str[MagStringLen],
  1766. X                  all_gklim_str[MagStringLen];
  1767. X  Widget all_lbllim_wid, all_maglim_wid, all_gklim_wid;
  1768. X} MagnitudesD_S;
  1769. X
  1770. Xtypedef struct {
  1771. X  int all_layer[MAXLAYRS];
  1772. X  int numlayers;
  1773. X
  1774. X  Widget wid[MAXLAYRS];
  1775. X  int laynum[MAXLAYRS];
  1776. X} LayersD_S;
  1777. X
  1778. Xtypedef struct {
  1779. X  char mapfiles[MAXMAPFILES][MAXPATHLEN];
  1780. X  int mapftypes[MAXMAPFILES];
  1781. X  int nummapfiles;
  1782. X
  1783. X  Widget file_wid[MAXMAPFILES];
  1784. X  Widget ftype_wid[MAXMAPFILES];
  1785. X  int mapnum[MAXMAPFILES];
  1786. X} Map_filesD_S;
  1787. X
  1788. Xtypedef struct {
  1789. X  int all_proj_mode;
  1790. X} Projection_modeD_S;
  1791. X
  1792. Xtypedef struct {
  1793. X  double all_vmin, all_vmax;
  1794. X  char all_vmin_str[MagStringLen], all_vmax_str[MagStringLen];
  1795. X  Widget all_vmin_wid, all_vmax_wid;
  1796. X  int use_vmin;
  1797. X  int nomaglbls;
  1798. X} Magnitude_labelsD_S;
  1799. X
  1800. X#define GridStringLen 12
  1801. Xtypedef struct {
  1802. X  double all_rstep, all_dstep;
  1803. X  char all_rstep_str[GridStringLen], all_dstep_str[GridStringLen];
  1804. X  Widget all_rstep_wid, all_dstep_wid;
  1805. X  int use_rstep;
  1806. X  double all_rstrt, all_dstrt;
  1807. X  char all_rstrt_str[GridStringLen], all_dstrt_str[GridStringLen];
  1808. X  Widget all_rstrt_wid, all_dstrt_wid;
  1809. X  int no_ra_grid;
  1810. X  int no_dec_grid;
  1811. X} GridD_S;
  1812. X
  1813. Xtypedef struct {
  1814. X  char *nothing;
  1815. X} Edit_mapwinsD_S;
  1816. X
  1817. X#define XParmStringLen 10
  1818. Xtypedef struct {
  1819. X  int post_preview;
  1820. X  int post_landscape;
  1821. X  int use_backup;
  1822. X  int is_color;
  1823. X  int fixed_size;
  1824. X  int fixed_width, fixed_height;
  1825. X  char fixed_width_str[XParmStringLen], fixed_height_str[XParmStringLen];
  1826. X  Widget fixed_width_wid, fixed_height_wid;
  1827. X} X_parmsD_S;
  1828. X
  1829. X
  1830. Xchar *proj_mode_strings[] = {
  1831. X  "Error        ",
  1832. X  "Sansons      ",
  1833. X  "Stereographic",
  1834. X  "Gnomonic     ",
  1835. X  "Orthographic ",
  1836. X  "Rectangular  ",
  1837. X};
  1838. X#define MAXPMODE 5
  1839. X
  1840. Xchar *lay_strings[] = {
  1841. X  "None                ",
  1842. X  "Outline             ",
  1843. X  "R.A. Grid           ",
  1844. X  "Dec. Grid           ",
  1845. X  "Ecliptic            ",
  1846. X  "Boundaries          ",
  1847. X  "Patterns            ",
  1848. X  "Constellation Names ",
  1849. X  "All Files           ",
  1850. X  "All Object Symbols  ",
  1851. X  "All Object Names    ",
  1852. X  "All Star Mag. labels",
  1853. X  "All Vectors         ",
  1854. X  "All Areas           ",
  1855. X  "Legends             "
  1856. X};
  1857. X#define MAXLAYNUM 14
  1858. X
  1859. Xchar *filetype_strings[] = {
  1860. X  "",
  1861. X  "LineRead ",
  1862. X  "IndexType",
  1863. X  "BinFull  ",
  1864. X  "BinObj   ",
  1865. X  "BinStar  ",
  1866. X  "SAOFormat"
  1867. X  };
  1868. X#define MAXFTYPES 6
  1869. X
  1870. END_OF_FILE
  1871. if test 3578 -ne `wc -c <'starchart/starXawDlog.h'`; then
  1872.     echo shar: \"'starchart/starXawDlog.h'\" unpacked with wrong size!
  1873. fi
  1874. # end of 'starchart/starXawDlog.h'
  1875. fi
  1876. echo shar: End of archive 3 \(of 32\).
  1877. cp /dev/null ark3isdone
  1878. MISSING=""
  1879. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 ; do
  1880.     if test ! -f ark${I}isdone ; then
  1881.     MISSING="${MISSING} ${I}"
  1882.     fi
  1883. done
  1884. if test "${MISSING}" = "" ; then
  1885.     echo You have unpacked all 32 archives.
  1886.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1887. else
  1888.     echo You still need to unpack the following archives:
  1889.     echo "        " ${MISSING}
  1890. fi
  1891. ##  End of shell archive.
  1892. exit 0
  1893.  
  1894.